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MODULE NMLSNETIO ( 

LANGUAGE (BL1$$32) 

ADDRESSING_MODE (NONE 

DDRESSING moDE (EXTE 
= 'v04-000' 


ZTITLE "NML Network 1/0 module’ 


A 

IDENT 

)= 
BEGIN 


lenaeeneeeneenenentnentenenenteeerretrertrettertentrentenerentenetenerentens 

it 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

't ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY RDAN 


IE 
IN ACCO CE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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12-860=1 384 THRE DL SKSVMGMASTERSCNML  SRCINMLNETIO.B32¢9° (1) 
* 
® 
® 
® 
® 
® 
*® 
My ® 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 


!® TRANSFERRED. 


!@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


OoOooooooooCooooooooooo°oo 


cs 

Ke fatatatatatatatatotatotototototatatatatotetatatas 
MIMINMNININ 2 3 2 SS OS S$ OOOOOOOCSOO 
ANS WN (OO OONAOUES WN OOONOULS wn 


SS$_TIMEOUT error, use the middle word of the second longword 
of the I0SB for the NICE response detail field. This word is 
the error and status fields of SXMDEF. 


V03-006 MKP0010 Kathy Perko 
Do previous fix correctly (EGL ==> NEQ). 


27-Feb-1984 


Be Pe Se Se Se Se Se Be Se Fe Ge Ss Ge Fe Ge Be Ge Ge Fe Se Fe Fe Se FH SH Se Ge Se Se Ge Se Se Se Ge Se Ss Se Se Se See Se Se Se Se Se Se FSH Se Se eee Se Se Beas 
PUPS SVT ES BS BS BS BB BE BE ANNI IIAP PUNIPININININPYD 2 2 OS OO 

NOUS WR @ 0 ODNAUE WN SO ODNOAUE WIN OO ONAUEWN SQ OWDNAUE WH OO ONOUSWR 
ni a tt tt tt ts hh Fh SH Hh SP Ss Ss 4 ss ts 3 OOO 


00 '® 
0027 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
0099 = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
0031  oondenendnesesauensenaidanunessacessieebenbionahensitanedienaneennonboien 
0033 4+ 
Boae : FACILITY: DECnet-VAX V2.0 Network Management Listener 
0036 1! 
FE } ABSTRACT: 
$039 i This module contains routines to handle all network 1/0 
Bey with NCP and NETACP (NETDORIVER). 
00468 i ENVIRONMENT: VAX/VMS Operating System 
abe AUTHOR: Distributed Systems Software Engineering 
9 1 CREATION DATE: 2-Oct-1979 
09 i MODIFIED BY: 
00 v03-007 mKP0011 Kathy Perko 25-Mar-1984 
00 : If a circuit or Line operation returns an SS$_CTRL or 
: 3 
‘ 
i 
00 i 
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; 8 058 1! 

cia) 25 089 | | VO3-005 mKP0009 ' 
; & i Kathy Perko 1-Nov- : 
; 2 tt : gs © 10 sep ing of of TT tae nacancter teow tn oT : 
: t. meter does ; 
 § a6 | Riot order word 1s dere, te Qa returned ay (s-.hter(s 7 
; 65 063 1 i parameter IDs which don't need to be mapped. pein: - 
5 p 66 1! VO3-004 MKP0008 ' 
: i Kathy P “Nov- ; 
: of 0967 1 j Add area entity mapp Beg i tal: 
: OP 7 Fi v03-003 MKP0007 K : 
4 i ath Perko - - e 
; r a006 i Add adjacency database error mapping. mete reas 
: § 0072 1! V03-002 MKP0006 : 
° i y Pe rko - - Pi 
; fi o0r8 i nave = SASSIGNY tg the Q10 channel to SETAce beng This é 
a: so I | azar that che eapign {8 anlzaettengted for HCP consands to 
: a it ! base will be performed even if the network tae one ‘ 
; 0078 1 | V03-001 MKP0005 Kath : 
: y Perko - ~ : 
; bo 0080 i i Add module entity parameter mapping. 17-July-1982 
: 8) 0081 1 | V02-006 MKP0004 ; 
 § 082 | | Add SS$_NOLICENSE. 88.9, comp ae May 
: i se as a completion cod : 
: : sags i i a a paraneter to sat ssenbee aio efode for 210s, “Sn hie ; 
: 85 008s 11 the debug log to identify what kind of Q10 is being logged. ‘ 
; 0086 1! v02-005 MKP0003 K r 
: 7 athy Perko 05-Dec- : 
4 aoe 1 | nj a Oy : 
; 5 494 } on when Line is of ve circuit is turned ; 
hye 0091 1! VO2-004 mKP0002 : 
; 2 0092 1} Add NICE return of lave ya ig! 
: Tavatid Identi $ 
: + BR37 : NETACP returns Invalid Lid Ident fiaction Format when 
i. oe 0095 1! v02-003 MKP0001 Kathy ‘ 
: i Perko 1 3 
$f 3097 1 i Add ACP Link database as a separate data apie : 
; 0098 1! vo02 LMK0001 : 
ae 9099 1 | Remove QIOSET and GIOCLEAR 2 Phe vide : 
: 199 m8 a Ait come CLEAR and other mofifications for : 
ae 0102 1 voor —_TmHOOO1 : 
2 108 |} Hove SEND and RECEIVE routine 2 ae tad 
. H V ° 
: ioe 0104 & we ll IVE routines to NMLENTRY roe NMLMAIN 
> 106 o108 1 ; 
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1 oe oh eh ee ee ee ee ds a hd ed nh ad dh Lh ae a nh oh eh ee ee ee a a a aL a AL AL A AL a 
, seh set se seh sel sel sel se el seh seh seh sh seh seh sh seh sh sh sh, seh seh seh seh heh seh sels seh ehhh sods sth zh ssh heheh sh sh, sh shh, se sh seh 
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} $path bie tp ae NAR A EAT AED Abe A tte Oe pe we See pe ea Ht bey staty te | 
DD INICIO NICO IIIA SF SET TT TNA O 
Se el el el el el el eh el ee ce ee el el el el et el et ee eh eh eh ed ed ed ee ek nee nek eh ek ek eh ek eh oh eh oe ee el 
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16 6 ZSBTTL "NMLSNETQIO General network Q10 routine’ 
16 GLOBAL ROUTINE NMLSNETQIO (NFBDSC, P2, P3, BUFDSC) = 


144 
! FUNCTIONAL DESCRIPTION: 


This routine issues Q10 function requests to NETACP to perform 
volatile data base operations. 


FORMAL PARAMETERS: 

NFBDSC Descriptor of NFB data. 

P Descriptor of P2 data. 

P Address of word to contain resulting Length. 
BUF DSC Descriptor of data buffer 

IMPLICIT INPUTS: 

NML$GW_ACP_CHAN Channel assigned to the command process Link. 
IMPLICIT OUTPUTS: 


NONE 


SSSBIEAEANLS SAIS ARAN SSSISAF 


EDEN DID et a ct ee ee cD ce ce ee ee ed ed aed ed ed 


8 ROUTINE VALUE: 
8 COMPLETION CODES: 
8 This routine returns an NML status code that has been mapped from 
31 ; the Q10 status code. 
4 190 SIDE EFFECTS: 
9 191 
BBR ne 
96 194 “+ 
97 195 
98 136 
BRE ap 
01 199 NFBDSC : REF DESCRIPTOR, 
4 $f BUFDSC : REF DESCRIPTOR; 
04 20¢ LOCAL 
05 $ 10SB : $10SB, ' 1/0 status block 
06 DATABASE, ' Database ID 
44 § STATUS; ! Temporary return status 


If it hasn't already been done, establish channel to NETACP for Q10 control 
functions. The channel is to NET:, the pseudo device to which volatile 
database commands are issued. Doing the assing here allows NCP commands to 
the permanent data base to be processed even if NETACP is not mounted. 


TATUS = SS$_NORMAL; 

F .NMLSGW_ACP_CHAN EQL 0 THEN 

STATUS" = SASSIGN(DEVNAM = NML$GQ_NETNAMDSC, 
CHAN = NML$GW_ACP_CHAN); 


SSLEARR 


Ome DP oe ee ee ee em ee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
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IF .STATUS THEN 
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v04- NMLSNETQIO General network Q10 routine 1228601384 9g bila DL KSVMGMASTERSLNML SRCINMLNETIO.B32¢9°° (33 
3 18 17 BEGIN 
3 1 : 
: 1 18 ' Issue the Q10. 
; 4 P 1 STATUS = $Q]0W (CHAN = .NMLS$GW_ACP_CHAN, ' Channei 
5 4 Pp § FUNC = I10$_ACPCONTROL, ' Function 
; 5 PB 10SB = IOSB ' 1/0 status block 
; $ P 0224 P] = .NFBOSC, i P1 descriptor (NFB) 
; P 5 Ps = .P2, ! P2 descriptor (component id) 
: 8 P § P = .P ! Address for resulting Length 
; 229 0 P4 = .BUFDSC); i P4 (data buffer) descriptor 
; 1 o : Log the Q10 function. 
: : 0231 NMLSDEBUG_Q10 (DBG$C_ACPQIO, ' Log type code 
3 2 0 ; .STATOS, ' Q10 status yatue 
: 5 0 10S8, ! Address of I/0 status block 
; 236 0234 -NFBDSC, ! NFB descriptor 
; 237 0235 -P2, ! P2 descriptor 
: 238 8 6 . ! Address of P3 word 
3 +44 0 3 -BUFDSC, ! Data buffer descriptor 
: re OS35 SASCID("SET, SHOW, or CLEAR NETACPs database')); 
3 32 0340 ! Map the operation status into an NML code. 
3 gk 0948 DATABASE = .BBLOCK C.NFBDSC CDSCSA_POINTER], NFBSB_DATABASE); 
: $78 034 STATUS . NMLSMAPQIOERROR (.DATABASE, .STATUS, I0SB); 
3 348 0946 Return the mapped status code. 
: 350 0248 RETURN .STATUS 
: $3) 0250 1 END; ! End of NML$NETQIO 


-TITLE NMLSNETIO NML Network 1/0 module 
-IDENT \v04-000\ 


«PSECT SPLITS,NOWRT ,NOEXE,2 


43 20 72 6F 20 2C 57 4F 48 53 20 2C 54 45 53 00000 P.AAB: .ASCII \SET, SHOW, or CLEAR NETACPs database\ 3 
61 64 20 73 $8 43 41 54 45 f 20 gs 41 45 4C iit 3 
6 61 62 61 74 QOOIE ; 
4 tt it P.AAA: .LONG 36 3 
0000000° 00028 ADDRESS P.AAB ; 

EXTRN NMLSGB_EVTSRCTYP 

eEXTRN NML$GQ EVTSRCDSC 


-EXTRN NMLSGB_EVTMSKTYP 
-EXTRN NMLS$GQ~EVTMSKDSC 
-EXTRN NMLSGW-EVTSNKADR 
-EXTRN NMLSGWOACP_CHAN 
-EXTRN NMLSGL~LOGMASK 
EXTRN NMLSAB-GIOBUFFER 


L NML$GQ_ENTSTRDSC 
SEXTRN NML$GQ~Q10BFDSC 
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Jo=<= 
nw 
ae kd 
me 
Ww 


a 
MOMODwwDWwWmMmMmMm --pP 
OmDmzD »-—: 


NML$AB_MSGBLOCK 
1D 


PMeew MOMOMOwAmMm E-— 
+] 


ADs 
= 


2 


D 

V, NMLSAB_PRMSEM 
f NMLSAL_ENT INF TAB 
s NALSGB_CMD_VER 


oommv UD 
cc2z2amm 


NZ> Pais wWO 


z 
= 
-- 
we 
‘SS 
~~" 
zs 


NML$GB_OPTIONS 


x NML 
XTRN NALSGL =PRMCODE “NALSSL _PRS_FLGS 


NML$GQ-XDOMAPDES 
“EXTRN NMLSGQ-AJIMAPDES 
“EXTRN NAL $60" ARIMAPDES 
SEXTRN DEBUG “Q10, SYSSASSIGN 
“EXTRN. SYSSOl 


-PSECT SCODES,NOWRT,2 


00 -ENTRY NALSGU ACE. Save Ree R3,R4 
02 pty | NMLS$GW_ACP_CHAN, 


VL #1, TUS 
TSTL nmi Seu. ACP_CHAN 


CLRQ -(SP) 


54 000000006 


oc0%}E 08 
of ‘ 
3 a 


ooo 
==300 
Wea 
wo 
Sao 
m 
o 
e<«e >. e<«e eee 
oO 
ror 
— 
wr 


Sete Se Se Se Ge Se Se Se Se Se Se eseSe Se Se ee Se Sete ee Se See Se Se ee te ae 


k 1/0 


NMLSNETIO NML Net vor module 
v04 Q10 General network Q10 routine 


NMLSNET 


4 go 5 
000000006 00 9F 1 
000000006 99 4 Ff 1D 
: g D 5 
3 7 
—e ce A 
7E 4 AC 7D 0002C 
AC 0D 88 
52 4 as DO 000 
Be 
0 Hoe 
38 DD 66 
4 0D 0004 
E D4 0004 
000000006 90 of FB $4 es 
5 DO 00048 
00000000" 00 9F Q004E 
7E OC AC 7D 00054 
08 AC DdDd 00058 
52 DD 00058 
14 ag 9F 00050 
53 DD 00060 
04 dD 00062 
000000006 00 08 FB 00064 
50 04 A DO 00068 
50 02 AO 9A O006F 
4009 8F 6B 00073 
00000000v 00 03 FB 00077 
53 50 DO O007E 
04 00081 


; Routine Size: 130 bytes, Routine Base: S$CODE$ + 0000 


18: 


2$: 


VAX-11 8 
DIS SKSVMSA 


RG 
NML$GQ_NETNAMDSC 
#4, SYSSAS SSIGN 
RO. STAT 

STATUS, 
P3, =(SP) 
NFBDSC, R2 
R2 


-(SP) 
10SB 


#56 

at} a ACP_CHAN 
#12, a ag 
RO, STATUS 


P.AAA 
Ba, -(SP) 
P2 
R2 
10SB 
STATUS 
#8, NL SDEBUG. aio 
2(RO) DATABASE 
#°M<RO,R3,SP> 


#3, NMUSMAPQIOERROR 
RO, STATUS 


$-32 V 
TER: CNM” she NMLNETIO. 832; 79 


7 
* (3) 
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WOx e080 NMLSMAPQIOERROR Map Q10 error to NML error 1 ~300 71382 90:85:12 DI SKSVMGMASTERSLNML SRCINMLNETIO.B320¢5° «a8 

: 4 1 ZSBTTL "NMLSMAPQIOERROR Map Q10 error to NML error’ 

; 5 ! GLOBAL ROUTINE NMLSMAPQIOERROR (DATABASE, QIOSTATUS, I0S8) = | 

: 1 '¢¢ 

: 3 2? ! 1 FUNCTIONAL DESCRIPTION: 

; 260 33 1 i This routine translates Q10 errors into network management 

; 261 8 1! errors and makes the appropriate entries in the message 

; 6¢ 025 1! block. 

; 26 0260 1! 

: 64 0261 1 ! FORMAL PARAMETERS: 

; 265 8 $6 1! 

> 266 65 1! DATABASE Database ID 

; 267 0264 1! QIOSTATUS Q10 status return. 

: of 8 23 : } 10S8 Address of I/0 status block. 

: 270 0 85 1 ' IMPLICIT INPUTS: 

: evi 0268 1! 

; Le: 0269 1! NONE 

3 aT 0270 1! 

3 sre 03% ! : IMPLICIT OUTPUTS: 

: 276 0 ie 1 NMLSAB_MSGBLOCK contains the appropriate error code and detail 

: sr 0274 1! if applicable. 

; 278 0275 1! 

; 279 8 78 1 ! ROUTINE VALUE: 

: soe 9 A ; COMPLETION CODES: 

3 oes 0378 ' ! The return status is the NML error that corresponds to the Q10 error. 

; 284 0281 1! SIDE EFFECTS: 

: 285 ose¢ 1! 

; 286 0283 1! NONE 

; 287 0284 1! 

3; 288 0285 1 !-- 

3; 289 0286 1 

: 290 0287 BEGIN 

; 291 0288 

3 $36 0289 MAP 

: 9 0290 10SB : REF $J0SB; 

: 2946 0291 

3 344 0536 LOCAL 

: 296 029 CODE : BYTE, ' NICE status code 

: 44 8S3¢ DETAIL : WORD, ' NICE detail code 

; 298 95 FLAGS ' Message flags 

: 299 0 96 STATUS, i Return status 

3 Ss 8 44 TEXT; ! Optional text code 

; 4 0 39 Set up the default message information. 

3 304 03 1 CODE = NMASC_STS_OPE; ' Management program error 

; 305 ¢ DETAIL = -1; ' No detail 

3 06 0 FLAGS = MSBSM_DET_FLD; i Detail flag 

3 08 5 Check the Q10 status and the 1/0 status block. 

: 310 030 IF NOT .QIOSTATUS 
| 
J 
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3 
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THEN 
BEGIN 


} The Q10 was in error. This indicates a program or a system error. 


TER? = .QIOSTATUS; ! Use system message as optional text 
FLAGS = Aeken OR ' Default flags 


' 
SBSM_MSG_FLD OR ! and optional text 
MSBSM_SYSM_FLD; ! and system text 
STATUS = NMLS$_STS_MPR; ! Return status 
END 
ELSE 
BEGIN 


The Q10 status was successful so check the I/0 status block. 
If it indicates success the just return. Otherwise, attempt to map 
the error code to an NML error code. 
IF .I1OSB CIOS$W_STATUS) 
RETURN NML$_STS_SUC; 


SELECTONE -10SB CIOS$W_STATUS] OF 
CSS$_BUFFEROVF): ! Buffer is full 
BEGIN 


This is a special error code. If all of the components for a plural SHOW 
function will not fit in a single buffer then this code is returned to 
indicate that more components remain. The code returned when the end of 
the component List has been reached is SS$_ENDOFFILE. 


STATUS = NML$_STS_SUC; 
END; 


vane 51 al ! Missing parameter 
CODE = NMASC_STS_PMS; 
DETAIL = NML-MAPPARAMID (.10SB CIOSS$L_INFOJ); 
STATUS = NMLS_STS_PMS; 
END; 
CSS$_BADPARAM ! Parameter value error 
SS$~DEVACTIVE) 
BEGIN 
CODE = NMASC_STS PVA; 
DETAIL = NML_MAPPARAMID (.10SB CIOSSL_INFO]); 
STATUS = NMLS_STS_PVA; 
END; 
CSs$ 7} ana ! Component in wrong state 
ODE = NMASC_S : 


TS_STA 
NML~MAPENTITY (DATABASE); 
STS_STA; 
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; r¢ § END; 

: 393 8 CSS$_INSFMEM) tN f 

° H : No room for new entr 
: es SP eae Se fan 
; = : 

: ie 8 5 4 STATUS = NMLS_STS_ROO; 

3 a 0 f} ; ND; 

; 376 6 ie CSS$_ENDOFFILE): ! Unrecognized component 
3 ae 0374 4 BEGIN 

$ 78 0375 4 CODE = NMASC_STS_ CMP; 

: 39 0376 4 DETAIL = NML-MAPENTITY (.DATABASE); 

; 380 77 & STATUS = NMLS_STS_CMP; 

s 381 0378 END; 

; 38 0379 

; 2 0380 CSS$_NOPRIV): ! Privilege violation 
3; 384 0381 4 N 

; 385 038¢ 4 CODE = NMASC_STS PRI; 

; 386 38 4 STATUS = NMLS_STS_PRI; 

» ter 0384 3 ND; 

; 388 0385 § 

; 389 0386 CSS$_NOSUCHDEV): ! No such device 

; 390 0387 4 EGIN 

s 391 0388 4 CODE = NMASC_STS_CMP; 

; 392 0389 4 DETAIL = NML-MAPENTITY (.DATABASE); 

s 395 0390 4 TEXT = .10SB CIOS$W_STATUSJ; 

: 394 0391 4 FLAGS = .FLAGS OR MSBSM_MSG_FLD OR MSBSM_SYSM_FLD; 
: 332 0393 4 STATUS = NML$_STS_CMP; 

3 96 0393 3 END; 

: 397 0394 3 

; 398 0395 3 CSS$_NOSUCHNODE): ' No such node 

; 399 0396 4 BEGIN 

3; 400 0397 4! 

3 +3) O35 ? This parameter only applies to SHOW and DISCONNECT LINK comands. 
: 4603 0400 4 CODE = NMASC_STS_CMP; 

; 404 0401 4 DETAIL = a ENT_NOD; 

; 405 Bene 4 TEXT = .10SB8 CYOS$Q_STATUS]; 

3 406 0403 4 FLAGS = .FLAGS OR MSBSM_MSG_FLD OR MSBSM_SYSM_FLD; 
3 407 0404 4 STATUS = NML$_STS_CMP; 

: 408 0405 3 END; 

; 409 0406 ; 

; 410 0407 CSS$_DEVINACT): ! Device inactive 
; 411 BeOS & BEGIN 

; aig 409 4 CODE = NMASC_STS_STA; 

; 41 0410 4 DETAIL = NMLMAPPARAMID (.10SB CIOS$L_INFOJ); 

: 414 411 4 TEXT = .1OSB-CIOS$W_STATUSJ; 

: 615 ale 4 FLAGS = .FLAGS OR MSBSM_MSG_FLD OR MSBSM_SYSM_FLD; 
: 616 413 4 STATUS = NML$_STS_STA; 

: 417 414 END; 

; 418 415 : ; 

: 419 16 CSS$_IVDEVNAM): ! Invalid device name. 
: 420 17 4 BEGIN 

: 421 8 \8 4 CODE = NMASC_STS_IDE; 

: 422 19 4 DETAIL = NML-MAPENTITY (.DATABASE); 

3 42 8 0 4 TEXT = .JOSB CIOS$W_STATUS); 

+ 424 1 4 FLAGS = .FLAGS OR MSBSM_MSG_FLD OR MSBSM_SYSM_FLD; 
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STATUS = NMLS$_STS_IDE; 
END; 
ROSS Oh ICENEE !' Customer doesn't have a 
spot = NMASC -f18 OPE; 
TEXT = .JOSB~C1OS$w_ STATUS); 
GS = .FLAGS OR MSBSM -MSG_FLD OR MSBSM_SYSM_FLD; 
STATUS = NMLS$_STS_OPE; 


COTHERWISEI: ! Operation failure 


CODE = NMASC_STS_OPE; 
' If the error was SS$_CTRL or SS$_TIMEOUT on a Line or 

: giecyite ene second Ugn word of fhe I0SB is described by 
i $XMDEF. The 2nd and bytes are the status and error 

i fields” respectively, one are the most a bytes to 
return, since the detail field is only a wor 

i 


F .DATABASE EQL NFBSC_DB_CRI aren 
-DATABASE EQL NFB$C"DB-PLI T 
DETAIL = .(1OSB CIOSSC_ INFOD *1) 


AIL = ,10SB CIOS$L -— 


DET 
TEXT = aie C10S$w_STATUS 


=POIPIPIPININPINPINPIPINI NINN WANA BE BBL LENE SEPP PPP PLP PWWE SES PWS 


FLAGS = AG 
SBSM_MSG_FLD OR 
wSBSM M_SYSA EEO 3 
STATUS = NMLS$_STS_OPE 
END; 
TES; 
END; 
: Set up the message information. 
NMLSAB_MSGBLOCK CMSBS$L_FLAGS] = .FLAGS; 
NMLSAB“MSGBLOCK [MSBSB7CODE) _ = ‘CODE; 
NMLSAB-MSGBLOCK CMSB$W =DETALL = ,DETAIL; 
NMLSAB— _MSGBLOCK MSBSL_ TEXT s ,TeXT; 
Return the mapped status. 
RETURN .STATUS 
END; ! End of NMLSMAPQIOERROR 
07FC 00000 ENTRY 
A 000000V 9E 0 MOVAB NML MAPPARAMID, R10 
28 tititdit g 9E Mitte MOVAB NALSAB _MSGBLOCK, R9 
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CNFBSC_DB_LNI 
NFB$C_DB_NDI3: 


CNFBS$C_DB_0B1): 
CNFBS$C_DB_CRIJ: 
CNFBSC_DB_AJIJ: 


CNFBSC_DB_XNI, 
NFBSC_DB_XDI, 


NFB$C-DB-XGI, 

NFB$C_DB-XD 

NFB$C_DB_XD93: 
CNFBSC_DB_AJI): 
CNFB$C_DB_LLI): 
CNFB$C_DB_ARI): 
COTHERWISE): 
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474 47 ZSBTTL_ "NML_MAPENTITY hee NETACP database ID into entity type’ 
475 47 ROUTINE NML_MAPENTITY (DATABASE) = 

$¢8 47 

47 47 144 

$f8 are FUNCTIONAL DESCRIPTION: 

480 au ! This routine translates the Q10 database ID into a network 
481 47 ' management entity detail code. 

ret pee ‘ 

48 47 ! INPUTS: 

484 0480 : 

485 tB) : DATABASE NETACP database ID 

486 4 ! 

487 048 ! OUTPUTS: 

488 0484 ‘ 

489 0485 : The return value is the detail code. 

490 0486 leo 

491 0487 

49 0488 BEGIN 

49 0489 

494 0490 LOCAL 

495 0491 DETAIL : WORD; 

496 049 
497 049 DETAIL = ( 
498 0494 SELECTONE .DATABASE OF 
499 0495 SET 

00 0496 

01 0497 CNFBS$C_DB_PLIJ: NMASC_ENT_LIN; 

Oe 0498 

0 99 CNFB$C_DB_EF I 


NMASC_ENT_LOG; 


NMASC_ENT_NOD; 
NMASC_SENT_OBJ; 
NMASC_ENT_CIR; 
NMASC_ENT_NOD; 


NMASC_ENT_MOD; 
NMASC_ENT_NOD; 
NMASC_SENT_LNK; 
NMASC_ENT_“RE; 
-1; 
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8 5 QO 1 ZSBTTL "NML_MAPPARAMID Map QI0 parameter ID into management code’ 
: $ 1 : ROUTINE NML_MAPPARAMID (PRMID) = 

: 8 5 : 1 l+4 

3 278 : 2 : FUNCTIONAL DESCRIPTION: 

; 541 $8 § 1! This routine translates the Q10 parameter ID code a into network 
3; 05 . | management parameter ID to be returned in the detail field o 
; 54 0538 1! the NICE response to NCP. 

$ eee 0539 1! 

; 545 0540 1 ! INPUTS: 

: 228 b2¢) 1! 

s 54 206 1! PRMID NETACP QI0 parameter ID 

; 548 0545 1! 

; 549 0544 1 ! OUTPUTS: 

; 350 0545 1! 

3 633) 0546 1! The return value is the detail code. 

3 22¢ 0547 1 !-- 

3 3 0548 1 

> «554 0549 2 BEGIN 

3 399 0550 

3 320 0551 LOCAL 

g Sov 023¢ I, 

3. a0 0553 2 INDEX; 

; 559 0554 § 

; 560 0555 Pp 

; 561 0556 PRMID: BBLOCK; 

; 266 0557 

; 0558 BIND 

3; 564 0559 C = ( 

3; 365 0560 SELECTONE .PRMID CNFBS$V_DB] OF 

; 566 0561 ET 

; 567 036¢ NFBSC_DB_PLI]: NML$GQ_PLIMAPDES; 

> 568 056 NFBSC_DB_EFIJ: NMLS$GQ_EFIMAPDES; 

>; 569 0564 FBSC_DB_ESIJ: NMLS$GQ_ESIMAPDES; 

3 S7O 0565 NFBSC_DB_LNIJ: NMLS$GG_LNIMAPDES; 

; 571 0566 NFBSC_DB_-NDIJ: NML$GQ_NDIMAPDES; 

; 37¢ 0567 NFBSC_DB_OBIJ: NML$GQ-OBIMAPDES; 

; of 0568 NFBSC_DB_CRIJ: NML$GQ_CRIMAPDES; 

: 574 0569 NFBSC_DB_LLIJ: NML$GQ_LLIMAPDES; 

: 379 0570 NFBS$C_DB_XNIJ: NML$GQ_XNIMAPDES; 

; 576 0571 NFBS$C_DB_XGIJ: NML$GQ_XGIMAPDES; 

; 577 0578 NFBSC_DB-XD1J: NML$GQ_XDIMAPDES; 

; 578 057 NFBSC_DB-XS5J: NML$GQ_XSSMAPDES; 

; 379 0574 FBSC_DB_XD5J: NML$GQ_XDSMAPDES; 

; 580 0575 FBSC_DB_XS9J: NML$GQ_XS9MAPDES; 

; 581 9278 FBSC_DB_XD9J]: NML$GQ_XD9OMAPDES; 

; 28¢ 057 NFBSC_DB-AJIJ: NML$GQ-AJIMAPDES; 

3 7 g278 NFBSC_DB_ARIJ: NMLSGQ_ARIMAPDES; 

; 585 330 COTHERWISE): SASCID (0, 0); 

3 358 286 TES) : DESCRIPTOR; 

5 3 27 

; 589 5 BIND 

3 $20 233 TABLE = TABDSC CDSCSA_POINTER] : REF BBLOCKVECTOR C, 6); 


2 

® 
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PAAAASGAAOAOS 
MFP PP SH OHO 
OVWVONOUS WI 


module 1b-5¢ Sep-1984 215 VAX-11 Bliss-32 V 
Map Q10 parameter ID into manag 1 sets yi 93: gi} 714 DISKSVMSMA 

rou ugh the paramete= mapping table (in NMLDAT) to find 

CP Q10 parameter ID. 


thr 
NETA 

— 0 TO .TABDSC CDOSC$W_LENGTH] - 1 DO 
tees CNFBSL_PARAM_ID] EQLU .TABLE C.I, 0,0,32,0] 
BEGIN 


Extract the Network Management parameter ID from the mapping 
table, and return it. 


INDEX = .TABLE C 0,16,01; 
RETURN .NMLS$AB _PRMgen’ - INDEX, PSTSW_DATAIDI; 


END; 
END; 
i 


! The pareneene did not age ol in the ¢ napping table. Return the 
' Low word as is (since the detail field of the NICE response message 
is only a word, this is all that can be returned). 


if .PRMID <0,16> NEQ 0 THEN 


RETURN .PRMID CNFBSV_INX) 
RETURN =1 
ND; ! End of NML_MAPPARAMID 
.PSECT S$PLITS$,NOWRT,NOEXE,2 
30 30 9903¢ P.AAD: .ASCII \00\ 
2080 .BLKB 2 
00000002 000 O P.AAC: .LONG 2 
00000000' -ADDRESS P.AAD 
.PSECT S$CODE$,NOWRT,2 
001C 00000 NML_MAPPARAMID: 
WO po R a R4 
50 07 AC 9A 00002 MOVZBL RO 
05 50 91 90006 CMPB RO , ag 
9 12 000 BNEQ 
53 000000006 00 9€ 9008 MOVAB NMLSGQ_PLIMAPDES, R3 
ei 901 BRB 10$ 
06 50 91 00014 1$: CMPB RO, #6 
9 12 00017 BNEQ 
53 000000006 00 H 0019 MOVAB NML$GQ_EFIMAPDES, R3 
07 5 91 p 2s: CMPBséRO, #7 
9 12 BNEQ 
53 000000006 00 9€E 000 MOV NML$GQ_ESIMAPDES, R3 


Pa 
FERCCNML SRCINMLNETIO.B3204° 


M 16 
NMLSNETIO NML Network 1/0 module 16-Sep-1984 00:21:15 VAX-11 Bliss-32 V4.0-74 p 

v04- NML_MAPPARAMID Map G10 parameter ID into manag 12-8681 382 99°84 14 DLSKSVMGMASTERSENAL SRCINMLNETIO.B32°4°° (BS 

7¢ «(11 BRB 14$ ; 
01 5 9 6 3$: CMPB RQ. rh + 0565 

9 1 BNEQ 4 $ 

53 000000006 00 H 0 5 MOVAB N ,$GQ_-NIMAPDES, R3 : 
02 55 91 $0 E 4$: CMPBSseéRO, «#2 + 0566 

9 12 00041 BNEQ 5$ : 

53 000000006 0 H atch NOVAB NL $GQ_NDIMAPDES, R3 : 
03 50 91 0004C 5S: CMPBSséRO, #3 : 0567 

09 12 0004F BNEQ : 

53 000000006 90 H 0031 NOVAB NML $GQ_OBIMAPDES, R3 : 
04 £5 91 0005A 6$: CMPB sO, #4 + 0568 

09 12 0005D BNEQ : 

53 000000006 00 5 O005F NOVAB NL SGQ_CRIMAPDES, R3 : 
08 50 91 90068 7$ CMPB-—ss«RO, #8 : 0569 

09 12 00068 BNEQ : 

53 000000006 00 H 90060 MOVAB NMLSGQ_LLIMAPDES, R3 : 
09 50 91 00076 8s CMPBSséRO, «#9 : 0570. 
09 12 00079 BNEQ 4869S. : | 
53 000000006 00 H 00078 MOVAB NML$GQ_XNIMAPDES, R3 : | 
OA 50 91 00084 9S: CMPB sO, #10 : 0571. 

09 12 00087 BNEQ ss 11 : 
53 000000006 00 H 90089 on MOVAB NML$GQ_XGIMAPDES, R3 | 
0B 50 91 00092 11$:  CMPB RO, #11 : 0572. 
09 12 0009 BNEQ : 
53 000000006 00 1 00097 an MOVAB NMLS$GQ_XDIMAPDES, R3 
0c 50 (91 BOOK 18: CMPB sO, #12 : 0573, 

09 12 000A BNEQ ; 
53 000000006 00 H 90043 mo MOVAB NML$GQ_XSSMAPDES, R3 
i) 50 91 OOOAE 15$:  CMPB RO, #13 : 0574, 

09 12 00081 BNEQ : 

53 000000006 i 9% 0085 Be NOVAB NMLS$GQ_XDSMAPDES, R3 : 
OE 0 91 000BC 19: CMPB ss RO, #14 : 0575 | 
9 12 000BF BNEQ ss 1 : | 

53 000000006 H 9 cl a MOVAB NML$GQ_XS9MAPDES, R3 
OF 0 91 000CA 19$: CMPB RO, #15 : 0576 

09 12 000CD BNEQ : 

53 000000006 9 H Oc * NOVAB NINL $GQ_XDMAPDES, R3 
13 $5 91 8 1$:  CMPB RO #19 > 0577 

09 12 00008 BNEQ 23% ; 

53 000000006 00 H 2 NOVAB NM SGQ_AJIMAPDES, R3 
14 ' 9 ES $e: CPB RO, #20 i 0578 

0 9 MOVAB NML$GQ_ARIMAPDES, R3 : 

o> Goesenens ° 7 8 F2 246$: BRB mes . : 


eT 


i 
| 1 
| NMALSNETIO NML Network 1/0 module 16-sep - 138% 99: ¢}: :15 VAX=-11 Bliss-32 V at 
| VO6- NAL _MAPPARAMID Map Q10 parameter ID into manag 14-Sep-1984 0:14 DT SKSVMEM TER: chm” she NMLNETIO. B32. 79 ( 
| 
3 00000000' 00 3 OOF4 $73: MOVA P.AAC, R3 ; 0580 
4 C bee 6$: MOVZWL (R3), R4 ; 0591 
0 1 ce FE MNEGL #1, f + 0594 
1 1 BRB 28$ ; 
52 50 § C5 001 ; 27$ MULL3 #6, _I, Rg : 
3¢ 04 Ad C0 001 ADDL2 4(R3), R : 
6 04 A D1 00108 CMPL PRMID, (R2) : 
1 12 Bais NEQ 28$ : 
51 04 A2 ES 0111 MOVZWL 4(R2), INDEX ; 0601 
52 51 04 0115 SHL #4, INDEX, R2 : 0602 
0000000060042 9F 00119 PUSHAB NMLSAB_PRMSEMCR2) : 
50 9E f 4 9 peyzue a(SP)+, RO c- 
oB 50 54 F2 00124 28% AOBLSS R4, I, 27$ 3; 0591 
04 AC B65 00128 TSTW PRMID ; 0611 
05 13 00128 BEQL 29$ 3 
50 04 AC HN 44 9 tala PRMID, RO 3; 0614 
50 01 CE ie ¢ 298 MNEGL #1, RO r 
04 001 ET 3; 0615 


; Routine Size: 310 bytes, Routine Base: S$CODE$ + 026E 


mm 


Bee Oe Se ee Se BH Oe we 


| NALSNETIO NML Network 1/0 module 
- NML_MAPPARAMID Map Q10 parameter ID into manag 


6 $ 8618 1 END 
6 0617 1 
624 0618 0 ELUDOM 


PSECT SUMMARY 


Name Bytes 
SPLITS 6 NOVEC,NOWRT, 
SCODES 932 NOVEC,NOWRT, 


Library Statistics 


=z=-—- 
>-—. 
nw 
“ny 
me 


Attributes 
RD ,NOEXE,NOSHR, LCL, REL, need Eig bab ft 
RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


scecccee= Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CNML .OB et ES Le ' 341 41 12 27 60:00.) 
“$255$DUA28: (SHRLIBINMALIBRY.L32;1 8 16 1 47 0:00. 
_$255$D0UA28: CSHRLIBINET.L32;1 1279 $1 1 63 eS 
_$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 1 0 581 0:03. 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:NMLNETIO/OBJ=OBJ$:NMLNETIO MSRC$:NMLNETIO/UPDATE=(ENHS:NMLNETIO) 


Size:. 932 code + 56 data bytes 
Run Time: : 
Elapsed Time: 00:42.6 
Lines/CPU Min: 1876 
Lexemes/CPU-Min: 9607 
ery Used: 164 pages 
Compilation Complete 
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